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Abstract 

We introduce the notion of a Martin-Lofcategory —a locally cartesian closed category with disjoint 
coproducts and initial algebras of container functors (the categorical analogue of W-types)—and then 
establish that nested strictly positive inductive and coinductive types, which we call strictly positive 
types, exist in any Martin-Lof category. 

Central to our development are the notions of containers and container functors. These provide 
a new conceptual analysis of data structures and polymorphic functions by exploiting dependent 
type theory as a convenient way to define constructions in Martin-Lof categories. We also show 
that morphisms between containers can be full and faithfully interpreted as polymorphic functions 
(i.e. natural transformations) and that, in the presence of W-types, all strictly positive types (including 
nested inductive and coinductive types) give rise to containers. 
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1. Introduction 

One of the strengths of modern functional programming languages like Haskell or CAML 
is that they support recursive datatypes such as lists and various forms of trees. When 
reasoning about functional programs in many situations it is sufficient and indeed often 
easier to restrict ourselves to total functions, thus allowing us to view types as sets. David 
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Turner [37] calls this approach strong functional programming, though total might have 
been a better word. Not all recursive types make sense in this view, for example we can 
hardly understand D = 1 + (D —»■ D) as a set. Moreover, even if we restrict ourselves to 
well behaved types like lists over A which are a solution to List Asl + Ax List A (since 
every element of a list is either nil or a cons of an element of A and a list), in the total setting 
we have to decide which fixpoint we mean. There are two canonical choices: 

Finite lists correspond to the initial algebra of the signature functor, i.e. the functor 
corresponding to a datatype declaration, which in the case of lists over A is I i-> 
1 + A x X. We write this initial algebra as List A = pX. 1 + AxI 
Potentially infinite lists correspond to the terminal coalgebra of the same signature 
functor. We write this as List 00 A = \’X. 1 + A x X. 

In this paper we investigate strictly positive types which we define to be those types 
which can be formed using 0, 1, +, x, — p, v with the restriction that types on 
the left side of the arrow have to be closed with respect to type variables. Examples 
of strictly positive types are: the natural numbers LI = pX. 1 + X, binary trees 
BTree A = pX. A + X x X, streams Stream A = vX. A x X, ordinal notations Ord = 
pX. I + X + (N ^ X) = pY. 1 + Y + {{pX. 1 + X) -* F), and Rose trees RTree = 
pY. List F = pY. pX. 1 + X x F. Intuitively, these types can be understood as sets of 
trees (potentially infinitely branching), which have finite and infinite parts. 

Our central insight is that all strictly positive types can be represented as containers, 
which can be viewed as a normal form for those types. A unary container is given by a 
type of shapes S and a family of position types indexed by S thus: s : S h Ps. As a 
container we write this as (s : S i> Ps) or just (.S' > P). The extension of this container is 
a functor flA i> PJ, which on objects is given by flA > PJZ = s '■ S. (P s -*■ X). We 
say that any functor naturally isomorphic to the extension of some container is a container 
functor. 

Thus for any type X an element of s : S. ( Ps —*■ X) is a pair (s, /) where s : S is 
a shape and / : Ps —> X is a function assigning an element of X to each position for the 
corresponding shape Ps. For example List is represented by the container («:N > Fin n) 
where Finn = {0, 1, ..., n — 1}: a list is given by the length (its shape) and a function which 
assigns an element to each position in the list. List 00 is represented by (n : LI 00 t> Fin' n) 
where LJ 00 = vX. 1 + X is the set of co-natural numbers extending the usual natural numbers 
by an infinite element oo = 1 + oo and Fin' extends Fin by Fin' oo = LI, that is the positions 
of an infinite list are the natural numbers. We show (Corollary 6.1) that all strictly positive 
types can be represented as containers. 

Morphisms between functorial datatypes are polymorphic functions, in categorical 
terms natural transformations. We define morphisms between containers which represent 
polymorphic functions: given two containers (S t> P) and (T > Q) a morphism 
(S > P) —> (T E> Q) is given by a pair (w, #) where 

• u : S —> Fisa function on shapes, 

• g : FI 5 : S. Q(us ) —> Ps is a function which assigns to every position in the target a 
position in the source. 

Each container morphism gives rise to a natural transformation, and conversely (Theorem 
3.4) every natural transformation between containers arises from a unique container 
morphism. As an example the reverse list function revA : List A —> List A is represented 
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by the container morphism (id|\|, r) where r : \\n : N. (Finn —»■ Finn) is defined as rni = 
n—l — i. The function on positions has to be defined contravariantly because we can always 
assign where an element of the target structure comes from but not vice versa. Consider for 
example the tail function on lists which is represented by (An. n — 1, /a. i + 1) where — 
is cutoff subtraction. This can be visualised as 


tail of list 



One of the main applications of containers is generic programming: our representation 
gives a convenient way to program with or reason about datatypes and polymorphic 
functions. We have already exploited this fact in our work on derivatives of datatypes 
which uses containers to develop an important idiom in functional programming to support 
generic editing operations on datatypes [3,6]. 

We use here the language of extensional Martin-Lof Type Theory [28] with W-types and 
a constant inhabiting true ^ false (MLW ext , see [8]) as the internal language of locally 
cartesian closed categories with disjoint coproducts and initial algebras of unary container 
functors—we call these Martin-Lof categories. 

The present paper is the journal version of our conference papers [2,4]; this paper extends 
our previous results. We show here that W-types are sufficient to represent all strictly positive 
types allowing arbitrary nestings of ft and v (Corollary 5.5). Thus, we improve on our 
previous results in two ways: 

• In [2] we required that the ambient category have infinite limits and colimits (or at least 
be accessible), which rules out many interesting examples including syntactic categories 
of Martin-Lof type theory, categories of co-sets, categories of PERs and realisability 
toposes. 

• In [4] we show that nested //-types can be represented using W-types, but did not consider 
v-types or M-types. 

The extension to v-types is non-trivial: it follows from Proposition 5.2 which is stronger 
than the corresponding Proposition 6.1 in [4]—here we show that we have an initial solution 
and not just an isomorphism—and it requires the reduction of M-types (the dual of W-types) 
to W-types, which we do in Proposition 4.1. 

1.1. Related work 

The term container is commonly used in programming to refer to a type (or its instances) 
which can be used to store data. Hoogendijk and de Moor [23] develop a theory of 
container types using a relational categorical setting. We share many underlying intuitions 
and motivations but our framework is based on functions and inspired by intuitionistic Type 
Theory and it is not clear to us whether there is a more formal relation between the two 
approaches. 

Our work is clearly related to the work of Joyal [26] on species and analytical functors 
whose relevance for Computer Science has been recently noticed by Hasegawa [ 19]. Indeed, 
if we ignore the fact that analytical functors allow quotients of positions, i.e. if we consider 
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normal functors, we get a concept which is equivalent to a container with a countable set of 
shapes and a finite set of positions. Hence containers can be considered as a generalisation 
of normal functors of arbitrary size. 

Dybjer [17] has shown that non-nested inductive types can be encoded with W-Types. His 
construction is a sub-case of Corollary 6.1 covering only initial algebras of strictly positive 
functors without nested occurrences of p or v. Apart from extending this to nested uses of 
p and v our work also provides a detailed analysis of the categorical infrastructure needed 
to derive the result. 

Recently Gambino and Hyland [18] have put our results in a more general context and 
indeed their Theorem 12 generalises our Proposition 5.2 to dependently typed containers, 
which they call dependent polynomial functors. Similarly, their Theorem 14 is closely 
related to our Proposition 5.3. We also leamt from their work that this construction is 
related to the proof in Moerdijk and Palmgren [31] that W-types localise to slice categories. 

After learning about our Proposition 4.1 that M-types are derivable from W-types, van 
den Berg and de Marchi [38] have given an independent proof of this fact using a different 
methodology. 

1.2. Plan of the paper 

We review the type theoretic and corresponding categorical infrastructure in Section 2. 
Then in Section 3 we formally introduce the category of containers and prove some basic 
properties such as the representation theorem and closure under polynomial operations. In 
Section 4 we show that M-types are derivable from W-types, and finally the core of the 
paper is Section 5 where we show that container types are closed under p and v. We close 
with conclusions and discuss further work. 

2. Background 

2.1. The categorical semantics of dependent types 

This paper can be read in two ways (see Proposition 2.5): 

(1) as a construction within the extensional type theory MLW ext (see [8]) with finite types, 
W-types, a proof of true f false and no universes; 

(2) as a construction in the internal language of locally cartesian closed categories with 
disjoint coproducts and initial algebras of container functors in one variable—we call 
these Martin-Lof categories. 

The key idea of this dual view is to regard an object B e C/A as a family of objects 
of C indexed by elements of A, and to regard A as the context in which B regarded 
as a type dependent on A is defined. 1 The details of this construction can be found in 
[35,36,20,22,24,1]; see also [16] on internal languages. In particular, Seely [35] allows 
us to treat Martin-Lof type theory (without W-types) as the internal language of a locally 
cartesian closed category. 


1 Note that an important technicality [20] means that a type A \- B cannot strictly be identified with its display 
map 7tfl e C/A, instead a single display map may arise from many isomorphic types. However, to avoid excessive 
pedantry, in the presentation of this paper we will identify C/A with the equivalent category of types over A. 



M. Abbott et al./Theoretical Computer Science 342 (2005) 3-27 


Elements of A (in a context U) will be represented by morphisms f :U —*■ A in C, and 
substitution of / for A in B is implemented by pulling back B along / to f*B e C/ V. We 
start to build the internal language by writing a : A b Ba to express B as a type dependent 
on values in A, and then the result of substitution along / is written as u : U b B{fu). When 
the variable a : A is clear (and can be elided) we may write B instead of Ba, and similarly 
B{fu) can be written as f*B when u is elided—thus linking the type theoretic notation 
directly back to the underlying categorical interpretation. Thus we can write a: A b Ba or 
even just A b B for B e C/A, occasionally omitting variables from the internal language 
for conciseness where practical. 

Note that substitution by pullback extends to a functor/* : C/A -> C/U: to simplify the 
presentation we will assume that substitution corresponds precisely to a choice of pullback, 
but for a more detailed treatment of the issues involved see [13,20,1], 

Terms of type a: A b Ba correspond to global sections of B, which is to say morphisms 
t : 1 —s- B in C/ A. In the internal language we write a : A b ta : Ba for such a morphism 
in C. We will occasionally write t for ta when a is elided. Given objects a: A b Ba and 
a: A b Ca we will write a : A b fa : Ba —> Ca for a morphism in C/A, and similarly we 
write a: A b fa : Ba = Ca for an isomorphism. 

The morphism in C associated with B e C/A will be written as ub : 22 a B —> A (this is 
also known as the display map for B)\ the transformation B i-> J] A B becomes a left adjoint 
functor 22 a ^ n *B’ where pulling back along tie plays the role of weakening with respect to a 
variable b : Ba in context a : A. In the type theory we will write 22 a B e C as 22 a '■ A- Ba, 
or more concisely 22 a B, with elements T b {t,u):22 a : A. Ba corresponding to elements 
r b t : A and T b u : Bt. 

The equality type a,b: A b a = b is represented as an object of C/A x A by the 
diagonal morphism 8a ■ A —»■ A x A, and more generally T, a, b : A b a = b. Write 
refl a :a = a. Note that we work with an extensional type theory where equality in the type 
theory coincides with equality of morphisms in C. We believe that our development could 
also be implemented in an intensional system [27,32] by using setoids [21], 

We will write T, a : A, b : Ba b C(a, b) or just T, A, B b C as a shorthand for 
T, (a, b): J2 a B b C{a,b). For non-dependent C-types we write A x B m 22 a u *a B- 
Local cartesian closed structure on C allows right adjoints to weakening n* A ~\ ]/[ A t0 be 
constructed for every T b A; we write the type expression T b ]/[ a : A. Bb for the object 
T b ]/[ A B derived from T, A b B. For non-dependent ]/[-types we use the notations 
A —»■ B = f][ A n* A B and occasionally B A = A —*■ B. 

Thus we can interpret the language of the dependently typed lambda calculus as the 
internal language of a locally cartesian closed category: this is captured in [1, Proposition 
3.3.5] and is the basis of the claim in [35, Theorem 6.3] that locally cartesian closed 
categories are equivalent to Martin-Lof theories (without W-types). As pointed out by 
Hofmann [20] this claim is not strictly accurate 2 : a more careful treatment requires the 
machinery of fibrations. 


2 The problem is that substitution cannot be identified with taking pullbacks unless this operation can be made 
strictly associative, which is not in general possible. The details of this problem and its solution are covered in 
detail in [20] and in Chapters 2 and 3 of [1], and is related to the observations in footnotes 1 and 3. 
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For coproducts in the internal language to behave properly, in particular for containers 
to be closed under products, we require that C have disjoint coproducts: the pullback 
of distinct coprojections A—^-^A + 5 -< mr B into a coproduct is always the initial 
object 0. When this holds the functor C/A + B -»• (C/A) x (C/5) taking A + 5 h C to 
(A h ini* C, B b inr* C) is an equivalence: write — 4 — for the inverse functor. Thus 
given A b B and C h D (with display maps ng and Jin) we write A + C h 5 4 D for 
their disjoint sum, and we can see that ^ b ^_ d = tzb + no as objects of C/A + C, where 
tib + tid ’■ ZaB + E C D —■* A + C is a sum of morphisms. 

For the development of finite disjoint coproducts it is actually sufficient to introduce 
only 0 and disjoint Bool =1 + 1 with constants true and false corresponding to the 
two coprojections. In the Type Theory disjointness corresponds to having a constant 
disjoint: (true = false) —> 0. Given this we can encode arbitrary coproducts as A + 5 = 
£ b : Bool. ((<b = true) -> A) x ((b = false) -* 5). 

We write ]/[ J - 6/ A,- and £ ;gJ 4' for finite products and coproducts (with projections 
nj : n i6/ 4 —► Aj and coprojections inly : Aj —> Ymi 4 for j e /) indexed by a finite 
set /, and we write a disjoint finite sum of families as£,- e /4 h H izjBi. 

The following lemma collects together some useful identities which hold in any category 
considered in this paper. 

Lemma 2.1. For locally cartesian closed C with disjoint coproducts the following 
isomorphisms hold (IC stands for intensional choice, Cu for Curry and DC for disjoint 


coproducts): 

\\a : A. £b : Ba.C(a, b) = Y f ’-Y\ a : 4 Ba.Y\a : A. C(a, fa), (IC1) 

FI X> : 5/.C,h = £a : ft B t , n Q(ma), (IC2) 

is/ i€/ iel 

\\a: A. (Ba C) = (£a : A. Ba) C, (Cul) 

n (Bi C) S ( £ 5, j C, (Cu2) 

^ H 5,-^ (inlf a) S B t a, (DC1) 

££«: A;.C(inl;a)s£a: £ A;.Ca. (DC2) 

mi i&i 


We will need to make some explicit use of the machinery of fibrations, so recall 
[12,13,33,15,24,1] that a (split) fibration 3 E over a category C is given by assigning to 
each object F e C a category E/% the fibre over f, together with for each morphism 


3 More generally a (cloven) fibration is defined by relaxing the equations between reindexing functors to natural 
isomorphisms together with coherence equations; however, we can regard all the fibrations in this paper (the 
category C fibred over itself and its /-fold product C 1 ) as split via the technique described in [20]. Similarly we 
will without further comment take our fibred functors and natural transformations to be split. 
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y : A — » r in C a functor y* : E^ —> E A , the re indexing functor over y, satisfying equations 
id^ = idc/r and (}’ • S)* = 3*y*. A fibred functor F : ED —»• E between fibrations D and 
E over C assigns to each f e C a functor Fp : Dp «* Ep such that for each y : A ^ T 
the equation y* Fp = F A y* holds. Similarly, a fibred natural transformation a : F —>■ G 
between hbred functors is a family of natural transformations y.p : Fp —»• Gp such that 

y*a r = v-aT- 

Given a (finite) index set I define [C 7 , C 7 ] to be the category of fibred functors and natural 
transformations C 7 -> C 7 where the fibre of C 7 over r e C is the /-fold product (C/T) 7 . 
Of course, when / = 1 we will write this as [C 7 , C]; observe also that [C 7 , C 7 ]S[C 7 , C] 7 , 
and so most of our development can be done with 7 = 1. 


2.2. W-types and M-types 


In Martin-Lof’s Type Theory [28,32] the building block for inductive constructions is 
the W-type. Given a family of constructors A V B the type Wa : A. Ba (or ) should 
be regarded as the type of “well founded trees” constructed by regarding each a : A as a 
constructor of arity Ba. 

The standard presentation of W-types in type theory is through one type forming rule, an 
introduction rule and an elimination rule, together with an equation. We refer to [1, Chapter 
2] for the precise rules of the Type Theory we are using, which are basically standard (see 
also [8]). However, it is worthwhile to remind the reader of the rules covering W-types, 
quoting from Abbott [1, Definition 5.2.1]: 


Definition 2.2. A type system has W-types iff it has a type constructor 
T, A h B 

r b \n a b 

together with a constructor term 


(W-type) 


T, a: A, f-.Ba -► \N A B b sup(a, /): \N A B 


(sup) 


and an elimination rule 
r, w : \N a B b Cw 

r, a: A, f:Ba ->• \N A B, g-.\[b:Ba. Cjfb ) b /i(q, /, g): C(sup(a, /)) 
F, w:\N a B b wrec hw.Cw 

satisfying the following equation for variables a : A and / : Ba \N A B: 


wrec/,(sup(a, /)) = h(a, /, wrec h •/), 

where (wrec/, -f)b = wrec/j (/£>); note that the first argument of this composition is 
dependent function, so this is a special kind of composition. 
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Note that the elimination rule together with equality types ensures that wrec/, is unique, 
and it is easy to see that the rule wrec implies that sup is an initial algebra on \Na B for 
the functor X i-> a : A. {Ba —> X ); it is not much harder to see that W-types can be 
constructed from initial algebras [1, Theorem 5.2.2], Moerdijk and Palmgren [31] show that 
the global version of W-types implies the existence of W-types in each slice. Functors of 
this form play a special role in this paper: the following definition is justified in Definition 
3.2 and its sequel. 

Definition 2.3. A functor F : C —► C is a container functor iff it is naturally isomorphic 
to a functor of the form {Ba —> X), or more concisely ^f, A {B —*■ X), for 

some family A h B in C, i.e., objects A e C and B e C/A. 

We consider that the existence of initial algebras for container functors summarises the 
essence of Martin-Lof’s Type Theory (without universes) from a categorical perspective, 
hence the following definition. 

Definition 2.4. A Martin-Lof category is a locally cartesian closed category with disjoint 
coproducts and initial algebras for container functors, in other words closed under the 
formation of W-types. 

Thus the relation between Martin-Lof categories and the syntax of type theory can be 
summarized by the following proposition, the proof of which is implicit in [1]. 

Proposition 2.5. Extensional dependent type theory with Sigma-types, Pi-types, W-types, 
a proof of true f false and no universes is the internal language of Martin-Lof categories. 

Dually, we introduce M-types as the terminal coalgebras of container functors. There 
is no standard representation of M-types in type theory, indeed the elegant unification of 
primitive recursion and induction does not dualise easily; thus the following definition 
is purely categorical. We will see in Proposition 4.1 that every Martin-Lof category has 
M-types. 

Definition 2.6. A locally cartesian closed category has M-types iff it has final coalgebras 
for container functors. The M-type for a container functor X i-> 'ffa'.A. {Ba —> X) will 
be written as Ma# with coalgebra sup -1 : Ma# —*■ ^2 A (B ~ 1 ► MaR). 

Note that the M-type coalgebra su p _ 1 is, as its name suggests, the inverse of a constructor 
sup. This means that for both W- and M-types the constructor is written as sup; where it is 
necessary to distinguish them we will write sup^ and sup v respectively. 

We know that W-types exist in toposes with a natural numbers object [31, Proposition 3.6] 
and in categories which are both locally cartesian closed and locally accessible [2, Theorem 
6.8]. Moreover, W-types exist in models of Type Theory based on realisability such as the 
categories co-Set of co-sets and PER of partial equivalence relations on LI (equivalent to 
the full subcategory of co-Set of modest sets). See Jacobs [24] for the definitions of co-Set 
and PER and the verifications that they are locally cartesian closed [24, ex. 1.2.7]; the fact 
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that W-types exist can be seen by modifying the construction in [9, pp. 79-80]. It is easy to 
see that coproducts in these categories are disjoint and hence we have: 

Proposition 2.7. cw-Set and PER are Martin-Lof categories. 

On the other hand, note that both these categories lack coequalisers and most inhnite 
hmits. In particular co-limits do not in general exist in co-Set or PER: it’s easy to see that 
n„ e „ 2 must have 2^ elements, but all objects in PER are countable so it cannot be an 
object of PER. The hmit in co-Set, if it exists, is modest and hence would correspond to an 
object in PER. 

2.3. Strictly positive types 

Strictly positive types can be inductively debned as follows. 

Definition 2.8. A strictly positive type in n variables [7] is a type expression (with type 
variables X\,..., X n ) built up inductively according to the following rules: 

• if A' is a constant type (i.e. one with no type variables) then AT is a strictly positive type; 

• each type variable Xj is a strictly positive type; 

• if F, G are strictly positive types then so are F + G and F x G; 

• if A" is a constant type and F a strictly positive type then AT —> F is a strictly positive 
type; 

• if F is a strictly positive type in n +1 variables then pX. F and vX. F are strictly positive 
types in n variables (for X any type variable). 

Define a non-inductive strictly positive type to be built up inductively as without any 
application of p or v: from constant types K, variables X, products x, coproducts + and 
function types from a constant type K —> —. 

As we will show, non-inductive strictly positive types can be interpreted in any locally 
cartesian closed category with disjoint coproducts (this already follows from Dybjer [17]) 
and (general) strictly positive types can be interpreted in any Martin-Lof category. 


3. Basic properties of containers 

Throughout this section we will take as given a locally cartesian closed category C with 
finite disjoint coproducts. We will now introduce the category of containers Q equipped 
with its interpretation or extension functor [—]] : Q —* [C, C]. When constructing fixed 
points it is also necessary to take account of containers with parameters, so we define 
[—]]: Qi —y [C 7 , C] for each parameter index set I. For the purposes of this paper the 
index set I can be assumed to be finite, but in fact this makes little difference. Indeed, it is 
straightforward to generalise the development in this paper to the case where containers are 
parameterised by internal index objects / € C; when C has enough coproducts nothing is 
lost by doing this, since C 7 ~ C/ J2iet 1- This generalisation will be important for future 
developments of this theory, but is not required in this paper. 
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Definition 3.1. Given an index set I define the category of containers in I parameters Qi 
as follows: 

• Objects are pairs (A e C, B e (C/A) 7 ); write this as (A > B) e Gi- 

• Morphisms (A t> B) —r (C > D) are pairs (m, /) for u : A —» C in C and 
/ : (u*) 1 D -* B in (C/A) 7 . 

Thus a container in one parameter is just a family A \- B, while a container in I 
parameters consists of a single shape A together with a family of positions A b 6, for each 
i e /. 

A container (A t> B) g Qj can be written using type theoretic notation as a pair b A 
and i: I, a : A b 5,-a, and similarly a morphism (k, /): (A > B) —»■ (C t> D) can be 
written as a pair b u : A — » C and i: I, a: A b fa : Dfiua) -*■ Bja. 

Finally, each (A > B) e Qi, thought of as a syntactic presentation of a datatype, 
generates a fibred functor [A d> : C 7 —* C which is its semantics. 

Definition 3.2. Define the container extension functor [—]]: Gi —> [C 7 , C] as follows. 
Given (A t> B) e Gi and IeC 7 define 

|[A > BJX = J2a:A. U(Bia ^ Xt) = ZU(B ^ X), 

#€/ A I 

and for (it, /): (A > S) ^ (C > D) define | \u, fj : [A > fij EC > DJ to be the 
natural transformation with components E u, /Jv : E^ > SJ A —>• EC d> DJZ defined 
thus: 


(a, g): EA > BJX b Em, fjx(a, g ) = (mu, (g; • /*«/). 

Say that a functor F : C 7 — >■ C is a container functor if it is naturally isomorphic to a 
functor of the form EA t> 5]] for some container (A t> B) (see also Definition 2.3). 

The following proposition follows from the construction of E—I as a type expression: that 
EFJ is fibred means that for any F b X we can construct F b EFJ A, and that given any 
substitution y : A —> F we can write y*(EFJA) = || FJ(y* A). This is simply a categorical 
statement of the fairly obvious observation that substitution through EFJ works. 

Proposition 3.3. For each container F e Qi and each container morphism a : F —> G the 
functor EFJ and natural transformation E^I are fibred over C. 

By making essential use of the fact that the natural transformations in [C 7 , C] are fibred 
we can show that T is full and faithful. 

Theorem 3.4 ( Representation ). The functor || — \\:Qi —* [C 7 , C] is full and faithful. 

Proof. To show that E—1 is full and faithful it is sufficient to lift each natural transformation 
a: EA > F]] -► EC > DJ in [C 7 , C] toamap (w a , /„): (A >5)^(Ct> 0) inland 
show this construction is inverse to E—1 ■ 
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Given a .: [A > -*■ |[C > DJ define l = (a, id Ba) '■ 1-4 > B [| B in the context 

a : A—that is to say, construct € : 1 —^ [[A > fij B in the fibre C/A. As the natural 
transformation a is fibred, it localises to ocg : [A > /?]] B —>• |[C > DJ B in C/A and so 
we can compute A h ocg€:|[C > DJB = ^cIl/C^ ->■ £); write this as o«g£ = (n a , / a ), 
where u a a : C and f y a : f| ;€/ (£) i (M a a) —» Bid) in context a : A. 

Thus (u a , foi) can be understood as a morphism (A d> B) —> (C t> D) in Q[, so we have 
a construction [C 7 , <C](|[A t> fij, |[C > DJ) -> Qi{{A > B), (C d> D)); it remains to 
show that this is inverse to the action of the functor [—1|. 

For a = [m, /]], evaluate agf = ( ua , id •/) = (u, /). In the opposite direction, to show 
that a = |][n a , fyj, let X g C 7 , a : A and g : \\ iGj (BiU —r Xj) be given, consider the 
diagram 


BDB lA > fi]l l [[A > 5]]Z 

U.B |«x in C/[[A > BIX 



and evaluate 


«*(«*, *) = <x*(([A > B]]g)f) = (|LC > DJg){a B l) 
= (EC > D]g){u a a, f a o) 

= (n«a, g ■ Ua) = fl> a , fAxia, g). 


This shows that a = Hu a , f a J as required. □ 

This theorem gives a particularly simple analysis of polymorphic functions between 
container functors. For example, it is easy to observe that there are precisely n m polymorphic 
functions X n —> X m : the data type X n is the container (Id > n) and hence there is a 
bijection between polymorphic functions X n —> X m and functions m —r n. Similarly, any 
polymorphic function List X —> List X can be uniquely written as a function u : N —*■ N 
together with for each natural number n : N, a function f n :un—rn. 

It turns out that each Qi inherits products and coproducts from C, and that [—J preserves 
them: 

Proposition 3.5. If C has finite products and coproducts then Qi has finite products and 
coproducts and they are preserved by Q—]|. 

Proof. Since [—J is full and faithful we can reflect the construction of products and 
coproducts along [—J, by showing that products and coproducts of objects in [C 7 , C] 
in the image of [[—]] are themselves in the image of [[—]]. 
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n A k > e «) 7 ^. 1 i 

]LkeK keK J 


Products : Let (A k d> B k ) k€ K be a family of objects in Qj and compute 

n iA k > B k jx = ->z,o 

JfceX keK iel 

= J2a -Yl Ak- H FI (B k ,i(n k a) ^ Xt) 
keK keK iel 

= Z a : n A k .u(( Z B k j(n k a) \ ->• zA 

keK iel WkeK / / 

-L 

showing by reflection along [[—J that 

FI (A k > B k ) S ( [] A k > Z ( n k y B k) 

keK \keK keK / 

= ( a : FI A k o Z B k (n k a )) . 

\ itetr / 

Coproducts : Given a family (A^ d> B k ) ke x of objects in Gi calculate (making essential 
use of disjoint coproducts): 

Z IAk > B k JX m ZZ«:4 II tot,.* -> 4) 

jteJT keK iel 


= ZZ« ; 4n H ) (i n U a) ->■ Z; J 

keK iel \\k'eK ) ) 

= Z^Z4n((M4/)^z i ) 

keK iel WkeK / / 

- fe* *(&*)„] 1 


showing by reflection along [—]] that 

Z (A k > B*)S ( Z At > H B k ). □ 

keK \ keK keK / 


Given containers F e Gi+i and G e Gi we can compose their extensions to construct 
the functor 

MEG]]] = ^f;/ >- c 7 x Cs C W JF1 >cj . 

Writing this equation as E4DHG]]]Z = EB1(Z, EG]]Z) we can see that this defines a form 
of substitution in one variable. 

This substitution lifts to a functor —[—] : Gi +1 x Gi —> Gi as follows. For a container in 
Gi+\ write (S t> P, Q) e Gi+i, where P € (C/S) 1 and Q e C/5 and define: 

(5 > P, Q)((A > B)] 

= (s : S, f : Qs ^ A t> (Pts + Z? : Q s - B i(fq)) i€r ) ■ 
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In other words, given type constructors F(X, Y ) and G(X) this construction defines the 
composite type constructor F[G](X) = F(X, G(A)). 

Proposition 3.6. Substitution of containers commutes with substitution of functors thus : 
M[[G]]]S[[F[G]]]. 

Proof. Calculate (for conciseness we write exponentials using superscripts where 
convenient and elide the variable s : S throughout): 

IS > P, Q][IA > 5]]A 

e e ((n *?) x (e / n?: e. n x?"*’)) 

= 5212 f '• aQ ■ n ( x P x : 

S iel v y 

= £ £ / n {{Pi + E <1 ■ Q- Bi ( fq )) -> Xi) 

S iel 

= IL(5 > P,Q)[(A > B)]]|X. 

As all the above isomorphisms are natural in X we get the desired isomorphism of 
functors. □ 

This shows how composition of containers captures the composition of container functors. 
More generally, it is worth observing that a composition of containers of the form 
— o — : Gi x Qj -*■ Qj reflecting composition of functors C 7 —»■ C 7 —> C can also be 
defined making containers into a bicategory with 0-cells the index sets I and the category 
of horns from I to J given by the container category Q j [1, Proposition 4.4.4], 

A canonical form for terms of type [F]][|[G]]]X s [[F[G]]A will be helpful later on. 
Observe that either side of this isomorphism can be written as d(s , /, g, h ) for some suitable 
and easy to compute isomorphism 0, with components of the following types: 

s:S f:Qs^A g-.Ps^X h:\\q: Qs.(B(fq) -► X). (1) 


Now we look at the treatment of type variables—this gives us a notion of weakening of 
containers as type expressions. First note that every type variable A,- can be regarded as a 
container. 

Proposition 3.7. Every projection functor nt : C 7 —v C defined by tit X = A,- for each 
iel is a container functor. 

Proof. 


P > 9 = j)jel]X= n ye /(0' = f) -+ Xj)=Xi■ 
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Given a type expression F{X \,..., X n ) in n variables and a variable renaming function 
/ :n —*■ m we can construct a type expression F(Xf\,...,X /„) in m variables. This 
construction extends to containers in an obvious way. 

Proposition 3.8. Each function f : I-*■ J lifts to a functor with 

F^X S [T’]](^ o /), where we regard X as a functor J -*■ C. 


Proof. Define (A > B) = (A > (£,- 6 /(/i = j ) x Bftj^j) and calculate 


Et^A > 

B)]]X 


= £« 

A- n (( 

£(/* = j) X B t a 


jcj vv 

iei 

=S> 

a. n n(((/*=/)xfl,-a)- 


jeJiel 


=£« 

A. n (B ia 

II 

t 


For example, in the special case of weakening a container (A d> B) inn variables by 
adding one variable in the final position we obtain f (A > B) = (A > B') where B- = Bi 
for i^n and B' +1 = 0. More generally we can weaken along any inclusion / : />—>/ 
of variables transforming (A d> B) into (A > B') = f^(A > B) where B'^ — B, and 
B'j = 0 otherwise. We will normally leave such weakenings implicit. 

Similarly, we can write f K = f i/ K = (K > 0 ) &Gi (where \j : 0 —» 7) for what can 
sensibly be called a constant container —its extension is a constant functor equal to K. We 
can now show that containers are closed under exponentiation by constant containers. 


Proposition 3.9. Containers are closed under exponentiation by constant containers, and 
this is preserved by [[—]]: given F &Qi then Hi" AT —> F]\X = K —> [[fl A\ 


Proof. Let F = (A > B) and calculate 

K -* |[F]]X = 77 ^ £a : A. YU B ia *i) 
i€l 

= J2f:K^A.Y\k:K. \\{Bftfk) -* X f ) 

!€/ 

= Y,f:K-> A. El {(T,k: K.Bftfk)) X t ) 

iel 

= [f:K^A> ( Zk:K.Bi(fk)) ieI \X . 

If we now define f K ^ F sz (f : K A t> (£ k : K. Bi (/k)) ie /) (or write this as just 
K —>■ F) then by reflection along |[—]] and the isomorphism [GJ x K = |[G x f K ]] (for 
any Get?/) we can see that K —»■ F is the required exponential. □ 


The following proposition is now an obvious consequence of the constructions and results 
in this section; this is basically a reformulation of the main result of [17] using the language 
of containers. 
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Corollary 3.10. Every non-inductive strictly positive type F in n variables can be 
interpreted as an n-ary container (] F D e Q n (and an n-ary functor [[(] FDJ : C" —> C) such 
that fl-STD = K, (]F + GD = (FD + (GD, (-F x G[) = <\F\) x <|GD, d K ^ F\) = K ^ (F[) 
andUXimXi,...,X n ) = Xi. 


4. Constructing M-types from W-types 

If we assume C to have enough infinite limits, in particular to be closed under the 
formation of co-limits, then it is easy to see that M-types exist: writing T = [[S c> 
construct the co-limit 

1^- T\ -<-—f*-H-(2) 

then as T preserves co-limits (indeed T preserves all connected limits since the functor 
also does) it is a well known result (e.g. [34]) that vT = ljm ^ T n \ is a final coalgebra. 
This approach was taken in [2,1], 

In the present treatment we do not wish to assume the existence of co-limits: recall that 
the Martin-Lof categories co-Set and PER do not have external co-limits of the form (2), 
and the same problem applies to the effective topos. One possible approach is to construct 
the family n :N b T n 1 as a family in C together with an internal representation of the 
restriction morphisms T n+k 1 —> T n 1 and take its internal limit, which certainly does exist. 
We do not do this in this paper, as the necessary machinery is not developed here. 

However, we can use this (internal) limit construction to understand the construction 
in the present paper. Each projection n n :vT —► T n 1 takes a potentially infinite tree and 
truncates it to depth n\ such truncated trees can be expressed as elements of the W- 
type M = pX. 1 + TX. Writing ± and sup for the two components of the constructor 
1 + TM —»■ M, we can define an inclusion i n : T n l>-^M inductively with ;'o = J_ and 
i n+ i(s, /) m sup(s, i n • /). 

This means that the family of composites i„ • Tin can be understood as a morphism 
N x vT —> M, or equivalently, a morphism vT —> M h : this last morphism turns out to be 
a regular monomorphism. Each infinite tree in vT is represented as an evolving family of 
finite truncated trees, and it is clear that / : N —> M is in vT only if fn is a truncation of 
f(n + 1). Correctly captured, this turns out to be the defining equation for vT as a regular 
subobject of M N . 

Thus we get the following proposition. 

Proposition 4.1. Every Martin-Lof category is closed under the formation of M-types, that 
is, every unary container functor has a final coalgebra. 

Proof. Let A b B be the family for which hA A B = vX. [A > B]\X is to be constructed; 
for conciseness, write TX = [A d> B]\X = fZ A J( R throughout this proof. Define M = 
pX. 1 + TX, writing _L : M and sup: TM —> M for the two components of the initial 
algebra 1 + TM —> M. The idea of this proof is to represent an element m : by a 

family of functions m : N —v M where each m n : M represents the infinite tree m truncated 
at depth n: the value _L represents points where the tree has been cut off. 
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We can construct a T -algebra a : T (M^) —► by cases over N: 

xo(a,f) = ± «n+i(a, /) '= sup(a, /„), 

with variables a : A and / : Ba —► M hl . We define f n = kb : Ba. ( fb)n —it will be 
convenient to use this convention for the parameter n throughout this proof. The morphism 
a. will later restrict to the inverse to the final coalgebra for M^S. 

Let fi: X — > TX be any given T -coalgebra; writing the components of fix as fi 0 x : A 
and fi\X : B(fi 0 x) -»■ X construct fi : X -»■ M N by induction over N: 

fi 0 x m X ~fi„+ix = sup (fi 0 x, ~fi n ■ fi^x). 

Observe that fi makes the diagram 

fi 

TX ^ - - - X 



(3) 


commute: 


« 0 (TfKfix)) = ± = fi 0 x, 

«n+t(T P(fix)) = <x„+i(Tfi(fi 0 x, PiX)) = a„+i (fi 0 x, fi ■ fi x x) 

= sup(^ 0 x, (fi ■ fi x x)n) = SUp(jS 0 X, fi n ■ fi x x) = fi n+ 1 X. 

Furthermore, fi is the unique morphism making (3) commute: let g also satisfy g = <x-Tg-fi, 
then 

go* = «o( Tg(fix)) = _L = fi 0 x, 

g n +ix = a„+i (Tg(fix)) = at n+ i(Tg(fi 0 x, /?,*)) = a„+i(j8 0 *, g • fi x x) 

= sup(^ 0 x, g„ • fi x x) = sup (P 0 x, fi n ■ fi x x) = fi n+l x. 

This shows that for every coalgebra fi: X —> TX there exists a unique morphism 
fi: X —> M satisfying the equation oc ■ Tfi ■ fi = fi. 

Note however that a is not an isomorphism, and in particular there is no suitable coalgebra 
on M n : to construct the final coalgebra we need to define M ^ M N to be the subobject 
of “well-formed” sequences of trees. To do this we would like to construct a truncation 
morphism N b M —*■ M + 1 with component at n : N cutting off elements of M to depth 
n —the extra value in the codomain represents the result of truncating a tree where _L occurs 
anywhere in the body of the cut off tree. 

In practice it is necessary to define M = jiX. 1 + TX + 1 with algebra components 

— _ ~ Sji 

written ±, sup and ★ respectively and to construct trunc : M —> M . This is because the 
question of whether A. occurs at an appropriate depth is in general undecidable, so the 
simpler form of trunc as a morphism into M + 1 discussed above is not implementable. 
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Define franc : M —> M N by induction over M and N by the following clauses: 

franco x = _L trunc„ + i _L = ★ 

tranc„+i(sup(a, /)) = sup(a, trunc„ •/) tranc„+i * = ★. 

Note that the construction of tranc is an instance of W-type induction with algebra 

_fsj _ 

[m; t>; uj] : 1 + T(M ) + 1 —> M defined by induction over N with uo = r’o (a, f ) = 
wo = -L, u n+ 1 = w n+ i = ★ and v n +i (a, f)_= sup (a, /„). 

There is an obvious inclusion defined inductively by: 

i± = T z(sup (a, /)) =s sup(<a, i ■ /). 

Finally define tranc = tranc • i which therefore satisfies equations: 

trancox = z_L tranc„+i(sup(a, /)) = sup(a, tranc„ ■/). 

We can now say that m : M N is “well-formed” iff each m n is a truncation to depth n of all 
the larger trees m„+k, which can be captured as 'in : N. (im n = trunc„ m n+ 1). So define 

M = J2m: : N. ( im n = tranc„ m n+ \), (4) 

describing a regular subobject of M N . Note that for (a, f) : TM the equation above 
translates into the equation i ■ f n = tranc„ ■ f n +\; this can be used to show that a restricts 
to a :TM M, i.e. z(a„x) = tranc„(a„+ix) for x : T M, thus: 

Kao (a, /)) =i -L = trunc 0 (ai(a, /)), 

Ka«+t (fl, /)) = z(sup(a, /„)) = sup(a, !•/«) = sup(a, tranc„ •/„+1) 

= tranc„+i(sup(a, /„+1)) = tranc„ + i(a„ +2 (a, /)). 

For the rest of this proof we’ll write a for the restricted morphism or. TM —»■ M. The 
morphism [> constructed from a coalgebra fi also factors through M ^ A4 lJ : 

i(fio x ) = l -L = tmnc 0 (jS, i+ ix), 
i(P n+ lx) = z(sup(^ 0 x, \ • jSjjr)) = sup(j8 0 x, i-P n - j8jx) 

= sup(j5 0 x, tranc„ , • fax) = tranc„+i(sup(^ 0 x, \ +l • ft*)) 

= tranc„+i (fi n+ 2x) 

showing that z • fi n = tranc„ -fi n+ \ ■ Now writing [I: X —»■ M we can see that fi is still the 
unique solution to the equation ft = a ■ T ft ■ ft-, to complete the proof it remains to show 
that a is an isomorphism. 

By Definition (4) a term m : M satisfies the equation zm„+i = tranc„+i m n + 2 ; by 
disj ointness of coproducts and the definition of tranc„+1 we can see that this equation must be 
of the form im n+ 1 = sup(a, tranc,, •/„+1)) = tranc„+i(sup(a, /„+1)) = tranc„+i m n+2 
for some a and f n +i- We can therefore write m n+ 1 = sup (a, f„) where f„ satisfies 
the equation i ■ f n = tranc„ ■ f n +\ • By defining a!m = (a, f) we obtain a morphism 
a! : M TM. 


20 
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Now <x'(tx(a, /)) = ( a ', /') where sup(a\ f„) = oc„+i(a, /) = sup (a, /„), showing 
that a! • a. = id tm- Conversely, writing a 'm = (a, /) where m n+ \ = sup(a, /„) and 
i ■ f n = trunc„ -fn+i we can show that x(y!m) = in: 

= i± = truncomi = imo, 

i(a„ + i(a'w)) = t(a„+i(a, /)) = i(sup(a, /„)) = sup(a, i ■ /„)) 

= sup(a, trunc„ •/„+1) = trunc„ + i(sup(a, /„+i)) 
m trunc„+i m n +2 = im n + 1. 

Thus a' = a -1 and we see that M is a final coalgebra for [A c> B [|. □ 


5. Inductive and coinductive containers 

Throughout this section take C to be a Martin-Lof category. Here we will show that the 
interpretation of non-inductive strictly positive types in containers (Corollary 3.10) extends 
to the full range of strictly positive types (Corollary 5.5). More generally, we will show that 
if F{X, Y) is a container functor F : C 7+1 —s- C then the fixed points )iY. F(X. Y ) and 
vF. F(X, F) are also container functors C 7 —> C. 

Note that throughout this section we treat /.i and v as partial operators on functors, taking 
an endofunctor F to (the object part of) its initial algebra nF and its final coalgebra vF, 
where these objects exist—note that these constructions are necessarily functorial. We also 
indulge in some obvious abuse of notation, constructing for example a functor /.iF : D —»■ C 
from a functor F:DxC^C and using a notation with variables to describe these. It is 
not until Corollary 5.5 that we link this notation explicitly to the syntax of strictly positive 
types. 

Now let F = (S t> P, Q) e Gi+\ be a container in / + 1 parameters with extension 


EF]](*,F) = [[S > P, QMX, Y) 

= J2s:S. (Pis -> X,)^ x (Qs -»• F). 



To show that nY. |[F1(X, F) and vF. |[F1(Z, F) are container functors with respect 
to X we need to compute /-indexed containers (A^, > B^) and (A v t> B v ) such that 
EA^ > B^X^fiY. EF]](X, F) and JA V > B^X^vY. EFJ(^, F). Clearly we can 


calculate 


> B^l = pY. EFJ(1, Y) = nY. [5 > QW=WsQ, 

A v = JA V > S v ]]lSvF. EF](1 ,F)SvF. IS > QJY^M S Q, 

but the construction of W5 Q h B tl and M5 Q h B v will involve the inductive construction 
of families; we will show how to construct these families using W-types in Proposition 5.2 
below. 

In the rest of this section we will simplify the presentation by ignoring the index set I and 
writing P -»• X for Y\ iG [{P -»■ Xj). In particular, this means that the family B e (C/A) 7 
will be treated uniformly (as if / = 1). It is a straightforward exercise to generalise the 
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development to arbitrary index sets. We will therefore take 
PIC*, Y)s'£s:S.(Ps-+X)x (Qs -* Y). 

For any container G = (A t> B) we can calculate the substitution 
F[G] = (S > P, Q)[(A > B)] 

= (s : S, f : Qs -* A > Ps + : Q. B(fq )). 

This can be written more concisely as ( S , A® > P + 'PZq e* B), where s : A® x Q —► A 
is the evaluation map. Observe now that any fixed point «/r: [[5” > <2]]A = A induces 
an isomorphism of positions between F\G] and G, or equivalently an isomorphism 
p : [[F[G]]]1 = [[GJl and it is clear that any fixed point F[G] = G which agrees with \p 
must be of the form (ip, (p~ l ) : F\G] —»■ G for some family of isomorphisms 

s:S, f :Qs A V (p s f : Ps + £ <? : Q. B(fq ) s /)). (5) 

More generally it will be useful to require that ( B , tp) form an initial family over ij/. 

Definition 5.1. An initial family over a fixed point t//: [[.S' i> 2JA = A is defined to be an 
initial algebra for the functor C/A -»• C/A taking X to 1 !/~ l *{P + J2 q £*X). 

In other words, a family A i Bis initial over \j/ if it is equipped with a morphism 
(p: P + ’%2 q£*B —> >p* B, as in (5) above, which is initial in the category of such families 
and morphisms. It turns out that such initial families always exist. 

Proposition 5.2. Given a container F = (S > P, Q) e Gi+i and an object A e C 
equipped with a fixed point >p : [[.S' > QJA = A there exists an initial family A b Pos 
over ip for the functor X i-> P + YPq b*X. 

Proof. Write S, A 2 b (p : P + J2 q £ * b P* B for the initial family to be constructed. 
Note that the functor B i-> P + J2q£*B is not a container functor, so we cannot directly 
appeal to W-types to construct this hxed point; thus the first step is to create a fixed point 
equation that we can solve. Begin by “erasing” the type dependency of B and construct 
(observing that J2q y = Q x etc.) 

B = pY. Yj Y. (P + Q x Y) =pY. (j2(A Q X P) + (j2(AQ X G>) X y) 

S aQ \S \s // 

« List X Q)j X E(^ 2 X P); 

there is no problem in constructing arbitrary lists in C and so B clearly exists. 

The task now is to select the “well-formed” elements of B. An element of B can be 
thought of as a putative path through a tree in pY. Y); we want Ba to be the set of 

all valid paths to X-substitutable locations in the tree. 

An element of B can be conveniently written as a list followed by a tuple thus 


([(so, /o, qo), (Sn- 1, /«—1, qn- t)L (s„, /„, P)) 


22 
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for Si : S, fi : Qsi -> A, qi : Qsi and p : Ps n . The condition that this is a well formed 
element of B(\j/(so, /o)) can be expressed as the n equations 

ftqi = <A (s i+ i, fin) for i < n, 

showing that B can be captured as a regular subobject of B. That this is indeed the required 
initial family is shown in [ 1, Proposition 5.5.1]. □ 

The details of this sketch proof are given in [1 ], or the result can be derived as a corollary of 
[18, Theorem 12] by observing that the functor X i-> + Y^q £*A) is a “dependent 

container functor” (which they call a “dependent polynomial functor”) and therefore has 
an initial algebra. 

Being initial, (p is an isomorphism. Writing G m (A t> Pos P v,) for the container 
associated with an initial family, note that a = (\J/, <p - ') is an isomorphism of containers 
a .: F\G~\ = G, and using the decomposition of |[.F[G]]]X of (1), see the discussion following 
Proposition 3.6, we can write the action of |[a]z as 

MxCs, /, g, h ) = OACs, /), K(g, h )), 
where K (g, h) : Pos(iA(s, /)) -*■ X can be defined by cases thus: 

K(g,h){(p(in\p)) =gp K{g,h){(p(\nr{q,b))) = hqb. (6) 

Above and in the proofs that follow we use the functional programming convention for 
brackets that hqb = ( hq)b. We can now use initial families to construct initial and final 
containers. First initial algebras of containers. 

Proposition 5.3. Given a container F = (S > P, Q) e Gi +1 then 
EWsg > Posp, sup ,]]Zs/rF. Pl(X,y); 
writing pF = ( \NsQ i> Posp iSup /<) we can conclude that fl_pFJ = /r[[F[—]]]. 

Proof. For conciseness write A = \N$Q, B = Posp S upp and G = (A t> B) throughout 
this proof. First recall that [[F]](A, |[G]]Z) = EFn|[G]]Xs|[F[G]]X and observe that 
a = (sup, (p~ l ): F[G] G is an F[-]-algebra. 

To show that each IMx generates an initial [FKX, —)-algebra let an algebra 
P: EFjKA, Y) Y be given: we need to construct /): [GJZ —> Y uniquely making 

IFMX, IGIX) S|[F[G]]]f . S^^ |[G]]X 
IFMX.fi | (7) 

I IFMX, Y) - - -- Y 

commute. Using Eq. (1) to write the context as 9(s, /, g, h) : EF[G]]] X the corresponding 
equation can be computed as 

s:S, f :Qs ^ A, g:Ps ^ X,h:\\q:Qs. ( B{fq ) —► X) h 
l(sup {s, /), K) = p{s, g, Iq. Pifq, hq)), 


( 8 ) 
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where K = K(g, h) is defined as in (6)—we will elide the arguments (g, h ) which are 
constant through this proof. We can now construct fi : X B —*■ Y by W-induction by 

constructing 

a :\N s Q h /?(a, —): {Ba X) Y 

and using the W-induction rule wrec. To apply this rule we need to define the induction 
step H taking induction data and returning a value of the above type. The following type 
expression turns out to be the appropriate induction step: 

s:S, f: Qs ^ A, r :\\q : Qs. (( B(fq) -+ X) -*■ Y), k: 5(sup(s, /)) -► X h 
H(s, f, r)k = Pis, T\{k, -), T 2 (k, r, -)), 

where T\{k, p) = k(<p(inl p)) and T 2 (k,r,q) = rq(kb.ki(piir\r(q, b)))). In the context 
of (8) we can compute T\{K,p ) = gp and T 2 (K,r,q) = rq{hq). If we now define 
P(a,—) = wrec h a then in this context we can compute 

Pisupis, /), K) = wrec#(supO, f))K = H(s, f, wrec# • f)K 
= P(s, TiiK, -), T 2 iK, wrec H •/, -)) 

= Pis, g, kq.\Nrec H ifq)(hq)) = Pis, g, Xq.Pifq, hq)), 
which is precisely Eq. (8), showing that P is the required initial morphism and that indeed 
|[G]]X is an initial algebra. □ 

Where convenient we will write Pos^ = Posp, S up' J and Pos v = Posp, sup ». Note that the 
proof above that H/i/ 7 ]] = only uses the isomorphism P + ^2 q£* Pos m = Pos /( and 
makes no use of initiallity; this may seem surprising, as we might expect the isomorphism 
problem for Pos^ to have multiple solutions. 

This can be explained intuitively by observing that Pos /( corresponds to the type of paths 
into a finite tree, and consequently there cannot be any infinite paths. This occurs because 
the structure of the functor X i-> P + J2q £ *X respects the structure of the initial algebra 
sup, thereby forcing Pos^ to be unique. An example of this occurs in Wraith’s theorem [25, 
Theorem 6.19] which treats the special case \NsQ = N. 

The corresponding proof for v is more intricate because we now have to exploit the 
initiallity of the family Ms <2 h Posp -Sup ». 

Proposition 5.4. Given a container F = iS t> P, Q) e Gi+ i then 
[M S Q > Posp jSup v] X = vY. [FKX,F); 
writing vF = (Msg t> Posp iSup v) we have |[vE]] sv|[E[—]]]. 

Proof. Let A = Msg, B = Posp sup and G = (A > B) as before and observe that 
a.: F\G] —> G exists as above and has an inverse a -1 = (sup -1 , <p). We will show that 
each |[a -1 ]]x is a final [[/•’]] (A, —)-coalgebra. Let P:Y ->• |[F]|(A, Y) be a coalgebra: we 
will construct p : Y —*■ [G]]A uniquely satisfying 

~P = m x -iFiix,~p).p. 


(9) 
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Write the coalgebra fl:Y —*■ Es(^ P x as Py = ( S Y> gy> hy) with components 
g:riy:r.(PfoO->X) f :l\y ■ Y -(Q(sy) ^ Y), 

and similarly write /?: Y —»■ Ea X B as fiy = (ay, ky) with components a : Y —*■ A and 
h[])>:l'. (B(ay) —» X). In context y : Y equation (9) can be computed as 

(ay, ky) = (supCsy, a ■ fy), K(gy, k ■ fy )), (10) 

where K is defined in (6). It is immediately evident that a is fully determined by the final 
coalgebra property of A = M$ Q. To construct k we will need to appeal to the initial family 
property of B: we will work backwards to discover the correct construction. 

First observe that k can be regarded as a morphism k:a*B —>■ X in C/ Y, and hence can 
be transposed to a morphism k: B —>■ I~[ a Y ' n C/A—this is in the right form to construct 
using the initial family property. We can write f\ a X using equality in context a': A as 
QZ y '■ Y-ay = a') —> X and so we now want to construct 

a': A b k a f : Ba’ —> ((E Y ’■ Y.ay = a') -*■ X), 
this will arise by initiahty of families from a suitable morphism K 

s': s, f : Qs' -> a b Ps' + ■ Os’- {{'Ey - Y - a y = f'q) z ) 

> {{Ey- Y a y = sup(.v', /')) -► x ). 

We can define Kx(y, e) in context s' : S, f : Qs' —*■ A, y : Y and e : ay = sup(^', /') by 
the following clauses: 

p\Ps' b K(in\p)(y,e) = gyp, 

q -Qs', g' -{Ey'-Y-ay = f'q) ->• X b K(ynr(q, g'))(y,e) = g'(fyq,r&(\ fq ), 
where well typedness follows hy equality reasoning: first e tells us that supf.v', /') = ay — 
sup(sy, a ■ fy) and so (as sup is an isomorphism) s' = sy and f = a - fy. The definitions 
above can now be seen to be well typed by direct computation. 

The initial families equation defining k now becomes k ■ (p = K ■ (P + Eq £ *k), ° r 
writing it out more fully: 

£sup(s',/')(<P( inl P))(y . e) = isT(ini p)(y, e) = gyp, 

&sup(. s b/')( < P( inr ( < 7> b)))(y, e) = K(ynr(q, kp q b))(y, e) = kp q b(fyq, refl/^). 
Finally reconstruct k from k as kyb = k ay b(y, ref 1^^). These equations then become 
ky(<p(\n\p)) = gyp = K(gy, k ■ fy)(q>(\n\ p)), 
ky((p(\nr(q,b))=k(fyq)b = K(gy, k ■ fy)(q>(\nr(q,b))) 
showing that k is indeed uniquely determined to satisfy Eq. (10), thus establishing that 
|[a _1 3x is the desired final coalgebra. □ 

Note that the construction of vF only uses initial families, that is to say, initiality and not 
finality of Pos v is the required defining property. This can be understood by observing that 
although an element t : M 5 Q may represent an infinite tree, any position in Pos v t represents 
a finite path into t. 
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Finally observe that pF is the object of an initial algebra for the substitution functor 
F\— | .Qi—rQi and similarly vF is the object of a final coalgebra: this follows by the 
reflection of Propositions 5.3 and 5.4 along [—J. The following corollary summarises the 
results of this section. 

Corollary 5.5. In a Martin-Lof category every strictly positive type F in n variables 
can be interpreted as an n-ary container (]F[) e Q n such that <\pX n+ \. F[) = p(\F\), 
<\vX n+ i. F\) = v(] F[), and the interpretations of Corollary 3.10 hold. 


6. Conclusions and further work 

We can summarise the main results of the paper in the following corollary: 

Corollary 6.1. Each strictly positive type F in n variables can be interpreted as an n- 
ary container (| F [) : Q n . Given the interpretation of n-ary strictly positive types (] f’D = 
(A > B), (]GD = (C > D) and n + 1 -ary strictly positive type (]//[) = (S i> P, Q ), we 
have the following translation'. 

<\K\) = {K > jy+ 0), 
m = (l > jf+(i = j)), 

<\F + G\) = (A + C > j Bj 4 Dj), 

(|F x G[) = ((a, c): A x C > j i-» Bja + Djc), 

FD=(f:K^ A > jt+J2k:K.Bj(fk)), 

(\pX n+1 . — (\N S Q > j h> Posp^sup/i), 

dvX„+i. f/D = (Ms2 > j i >■ Posp^sup v )* 

In the special case n — 0 this implies that all closed strictly positive types can be interpreted 
as objects in any Martin-Lof category. 

The reader will notice that our definition of strictly positive types is restricted to a simple 
type discipline even though we work in a dependently typed setting. A natural extension of 
the work presented here would allow the definitions of strictly positive families which can 
be interpreted as initial algebras of endofunctors on a given slice category. We are currently 
working on this and it seems that W-types, i.e. Martin-Lof categories, are still sufficient to 
interpret strictly positive families. This has important consequences for the implementation 
of systems like Epigram [30,29] which use schematic inductive definitions. The correctness 
of the schemes is currently not checked and is a likely cause of unsoundness. Using our 
construction 4 we can translate the schematic definitions into a fixed core theory whose 
terms can be easily checked. 


4 The constructions in this paper depend essentially on extensional equality, while the current version of 
Epigram is intensional. However, McBride and Altenkirch are currently working on an extensional but decidable 
implementation of Epigram based on [10]. 
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Nested datatypes [11,14] provide another challenge: to treat them we would need to 
represent higher order functors. However, it is likely that Martin-Lof categories are still 
sufficient as a framework. 

Another interesting line is to allow quotients of positions to be able to treat types like 
Bags, i.e. finite multisets. Indeed this is already present in Joyal’s definition of analytic 
functors and can be easily adapted to the category of containers. We have presented first 
results in [5]. There is an interesting interaction with our work on derivatives [3,6], e.g. 
using quotients we should be able to prove a version of Taylor’s theorem in a type-theoretic 
setting. This construction will take place within a predicative topos with W-types which 
extends Martin-Lof categories by effective quotients. 
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